home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-1297 / AMOSLIST / 000007_amos-request@svcs1.digex.net_Mon Dec 1 15:35:38 1997.msg < prev    next >
Text File  |  1998-06-24  |  3KB  |  78 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail4.access.digex.net (8.8.5/8.8.5) with ESMTP id PAA20495
  3.     for <mcox@access.digex.net>; Mon, 1 Dec 1997 15:35:13 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id LAA11257
  6.     for amos-out; Mon, 1 Dec 1997 11:38:48 -0500 (EST)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id LAA11254
  9.     for <amos-list@svcs1.digex.net>; Mon, 1 Dec 1997 11:38:47 -0500 (EST)
  10. Received: from mailc.telia.com (root@mailc.telia.com [194.22.190.4])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id LAA15492
  12.     for <amos-list@access.digex.net>; Mon, 1 Dec 1997 11:38:37 -0500 (EST)
  13. Received: from d1o30.telia.com (root@d1o30.telia.com [195.67.244.241])
  14.     by mailc.telia.com (8.8.8/8.8.5) with ESMTP id RAA19865
  15.     for <amos-list@access.digex.net>; Mon, 1 Dec 1997 17:38:11 +0100 (MET)
  16. Received: from FOO.telia.com (t8o30p53.telia.com [195.67.245.233])
  17.     by d1o30.telia.com (8.8.5/8.8.5) with SMTP id RAA09458
  18.     for <amos-list@access.digex.net>; Mon, 1 Dec 1997 17:38:05 +0100 (MET)
  19. From: "Mike" <mikael.hiltunen@ostersund.mail.telia.com>
  20. To: <amos-list@access.digex.net>
  21. Subject: Re: Fade routine
  22. Date: Mon, 1 Dec 1997 17:38:21 +0100
  23. Message-ID: <01bcfe77$89469980$e9f543c3@FOO.telia.com>
  24. MIME-Version: 1.0
  25. Content-Type: text/plain;
  26.     charset="iso-8859-1"
  27. Content-Transfer-Encoding: 7bit
  28. X-Priority: 3
  29. X-MSMail-Priority: Normal
  30. X-Mailer: Microsoft Outlook Express 4.71.1712.3
  31. X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
  32. Status: O
  33. X-Status: 
  34.  
  35. >Hello guys
  36. >
  37. >I have a small problem that I would like some help to. I am creating
  38. >a game and on the intro-screen I would like a picture to show up.
  39. >First the palette would be $FFF on all 16 colours, but they would
  40. >slowly fade down to their origin colours. Please... I really need
  41. >a routine like that.
  42. >If you guys even get this mail then please reply on it. I'm not sure
  43. >if my mails gets to the list... =/
  44. >
  45. >Well... Seeya... /Marco
  46.  
  47.  
  48. Here's 2 examples of how to do this:
  49.  
  50. -------------------------------
  51. Screen open 0,640,256,16,hires
  52. Rem Load your gfx here
  53. Dim C(16)
  54. For i=0 to 15
  55.    c(i)=colour(i) : Rem Save current palette in c()
  56.    colour i,$FFF : Rem Set current palette to $FFF
  57. next i
  58. Rem Fade to saved palette at speed 5
  59. fade
  60. 5,c(0),c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8),c(9),c(10),c(11),c(12),c(13),
  61. c(14),c(15)
  62. -------------------------------
  63. Screen open 0,640,256,16,hires : Screen hide 0
  64. Ink 4 : Bar 10,10 To 50,50 : Rem Load your gfx here
  65. Screen open 1,640,256,16,hires
  66. Screen copy 0 To 1 : Screen 1 : Rem Copy  the contents of screen 0 to Screen
  67. 1
  68. For i=0 to 15
  69.    Colour I,$FFF : Rem Set palette to $FFF on screen 1
  70. Next i
  71. Fade 5 To 0 : Rem Fade screen 1 to the palette of screen 0 at speed 5
  72. -------------------------------
  73.  
  74. Hope this helps,
  75.  
  76.         // Mike
  77.  
  78.